home *** CD-ROM | disk | FTP | other *** search
/ Precision Software Appli…tions Silver Collection 1 / Precision Software Applications Silver Collection Volume One (PSM) (1993).iso / tutor / basic12.exe / AVERAGE.BAS < prev    next >
BASIC Source File  |  1983-08-01  |  384b  |  8 lines
  1. 10 DATA 76,93,88,69,100,75,84,999
  2. 20 READ NUM:IF NUM=999 THEN GOTO 100 'get a number, check if last number
  3. 30 COUNT=COUNT+1        'count the number of numbers
  4. 40 SUM=SUM+NUM          'find the sum of the numbers
  5. 50 GOTO 20              'get the next number
  6. 100 PRINT "The sum of the";COUNT;"numbers is";SUM
  7. 110 PRINT "and the average is";SUM/COUNT
  8.             'get the next n